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ABSTRACT 

These materials were designed to be used by life 
science students for instruction in the application of physical 
theory to ecosystem operation. Host modules contain computer programs 
which are built around a particular application of a physical 
process. PPNT3D is a subroutine package which generates a variety of 
printed plot displays. The displays include single and multiple x vs 
y functions, multi-value y relationships, and density plots which 
simulate three-dimensional effects by means of overprinting. The 
package features one- and two-dimensional interpolation, "zoom-in" 
capabilities, automatic scaling, logarithmic scaling, flexible 
tilting, and multi-page plotting. PHNT3D communicates with the 
calling prcqram through the following: (1) an argument list: (2) 
common blocks: (3) files: and ^^) a set of file manipulation 
subroutines. Annotated listings illustrate the control program and 
input data cards for two sample runs, including their associated 
output. ( Author /CS) 
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PROGRAMMER'S GUIDE FOR SUBROUTIHE PRNT3D 

Identification 

PRNT3D ~ A Subroutine which Generates Two- and Three-dimenijional Pi/I.nter 
Plots 

Author - Larry Gales 

Date - May 1978, Center for Quantitative Science in Forestry, Fisheries 
and Wildlife, University of V/ashington, Seattle, Washington 
98195 

Purpose 

PRNT: • is a subroutine package which generates a variety of printer 
plot displays. The displays include single and multiple x versus y 
functions, multi-value x, y relationships, and density plots which 
simulate three-dimensional effects by means of overprinting. The package 
features one- and two-dimensional interpolation, "zoom-in" capabilities, 
automatic scaling, logarithmic scaling, flexible titling, and multi-page 
plotting. Each plot fits on a standard 8-h by 11-inch page with margins 
of sufficient size to permit inclusion in three-ring binders. Multi-page 
plots are automatically distributed over a number of such 8-h by 11-inch 
pages with sufficient annotation to permit easy reconstruction of the entire 
image. For a more detailed description of the purpose and output of 
?RNT3D, refer to its user's guide (Gales 1978). 

Usage 

PRNT3D communicates with the calling program through: 1) an 
argument list; 2) common blocks; 3) files; and a set of file manipula- 
tion subroutines. 

i 
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• Argument List: 

PRNT3D is invoked by the follov/ing statement in the calling program: 
CALL QQPR3D (TLF, OTP, ERF, DTP, DTPl, NX, NY, 
• • ZMAP, XMIN, XMAX, YMIN, YMAX, 

ZMIN, ZMAX, XRICH, YRICH, DPAULT, 
OVPRNT, AVE, INT2D, ERR) 
where QQPR3D is the main entry point in PRNT3D» All of the argu 
except ERR, are input arguments only and are unaffected by the opera .on 
of the subroutine. ERP is an output argument which is greater the . zero 
iff PRNT3D detects an error. The types, dimensions, range limit: "ind 
descriptions of the arguments are as follows: 



NAME 



ARGUMENT LIST 



TYPE AND DIMENSIONS RANGE LIMITS 



DESCRIPTION 



TLF 



OTP 



ERF 



DTP 



DTPl 



Intec^er 



Integer 



Integer 



Integer 



Integer 



See file 
descriptions 



The unit number of a file 
written by the calling program 
which contains titles which 
annotate the plot. 

The unit number of a file 
written by PRNT3D which 
displays the printer plots. 

The unit number of a file 
written by PRNT3D which 
displays error messages. 

The unit number of a binary 
file written by the calling 
program v/hich contains the X, 
Y, Z coordinates of the image 
points xo be plotted. 

The unit number of a binary 
scratch file written by PRNT3D 
which contains points to be 
Dlotted. 
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NX 
NY 



Integer 



2<|nx|<999 
2< I NY 1^999 



ZMAP 



Integer (10) 



0, 9 



MX and IIY are the number of x 
and y ceils in the imago 
space. If NX <_ 50 and 
NY £ ^i3, the image is printed 
on one page, otherwise it is 
automatically spread over a 
number of pages. For multi- 
page plots NX should be an 
exact multiple of 60 and NY an 
an exact multiple of 

If NX(NY) < 0, then the 
x(y)~axis is scaled logarith- 
mically, to the base 10. 
Otherwise, the scale is linear. 

The ZMAP array maps a given z 
level into one of the 10 pre- 
defined print combinations . 
Normally, the array ZMAP = 0, 
1,2,3,^,5,6,7,8,9 which means 
that the lowest z level is 
represented by a blank, the 
next z level either by a "1" 
or a the next z level by 

a "2" or an = . . . , the last 
z level by a 9 or the over- 
printed set "B", "M'', and 
?Iowever, if the user sets 
ZMAP(i) = 3ny i or j 

then the i — z " " " " - - - - 
represented by the j- 
combination . 



level^^ill be 
print 



XMIN 
XMAX 
YMIN 
YMAX 



Real 



-102^ 10^^ 



XMIN, XMAX and YMIN, YMAX 
define a rectangular window 
which encloses the data in the 
image space to be displayed. 
Data outside the- window are 
not shown. If XMIN >_ XMAX 
and/or YMIN > YMAX the com- 
puter ignores them and con- 
structs a window which just 
encloses all data in the data 
file. 



ZMIN 
ZMAX 



Real 



-10^^, 10^^ 
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ZMIN and ZMAX are the lov;er 
and upper bounds for 10 levels 
which determine the printed 
representation of z coordinate 
values in the binary data 
file. If ZMIN > ZMAX, the 
computer ignores them and 
assigns the lowest and highest 
z values in the data file to 
"ZMIN and ZMAX, respectively-. 



V 



XRICH 
YRICH 



Real 



>0 



XRICH and YRICH are the Ax and 
Ay increments used in both 
one- and two-dimensional 
interpolation (enrichment ) . 
If XRICH = 0 and/or YRICH = 0, 
no enricliment takes place. 
The user should note that the 
values of XRICH and YRICH 
should be coordinated not only 
with the data, but v/ith the 
size of the window set by 
XMIN, XMAX, YMIN, YMAX. If 
XRICH or YRICH are too small, 
the enrichment process will 
consume too much computer 
time, whereas large values of 
XRICH, YRICH will leave gaps. 



DFAULT 



Real 



DFAULT is the default value 
assigned to all cells in the 
image space. DFAULT is 
usually set to zero. 



OVPRNT 



Laical 



,T. or .F. If OVPRNT is true, the z 

values in each cell in the 
image space v/ill be represent- 
ed by a set of overprinted 
characters, so that high z 
values v/ill appear dark (the 
lowest level is always blank). 
If OVPRNT is 'false, then the z 
values will be represented by 
one of the characters blank, 
1,2,3,4,5,6,7,8 or 9. 



AVE 



Logical 



.T. or .F. If AVE is true, then all z 

values mapped to a single cell 
in the image space will be 
avei'^aged. If AVE is false, 
the last z value stored in the 
cell takes effect. 



INT2D 



Logical 



.T. or .F. If INT2D is true, then two- 
dimensional interpolation or 
enricliment will be applied to 
the binary data file, provided 
that botli XRICH and YRICH are 
gi^eater than zero. If INT2D 
is false, then one-dimensional 
interpolation will be applied 
if both XRICH and YRICH are 
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greater than zero. Note that 
interpolation can only be 
applied to data which are 
correctly organized on the 
binary data file. 



ERR Integer ERR is the sole output argu- 

ment from PRNTSD. If ERR = 0, 
then no errors were detected 
^ by PRNT3D. Otherwise, ERR = 

1,2,,.., or 7 and the printer 
plots are aborted. See the 
user^s guide for a detailed 
explanation of the error 
codes . 



• Common Blocks: 

PRNT3D uses blank common and five labeled common blocks named 
/QQPRl/, /QQPR2/, /QQPR3/, /QQPR4/ , and /QQXYZ/. Blank common serves as 
temporary storage for tlie printer plot image (F) and a counter for the 
number of points mapped to each image cell (NP), and is structured as 
follows : 

COMMON // F(60,45), NP(60,45) 
REAL F, NP 

Therefore, the calling program must reserve 2 x 60 x U5 = 5400 v/ords of 
work space at the start of blank common, e.g., 

COMMON // WSPACE (5400) 
REAL WSPACE 

Since PRNT3D uses this area for temporary storage only and does not 
preserve values between calls, the calling program can access and modify 
blank common any way it chooses, except that values stored in the first 
5400 words of blank common will be destroyed when PRNT3D is called. 
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The four common blocks /QQPRl/, /QQPRU/ are used only for 

internal operations in PRNT3D and can be ignored by the calling progran^. 
Common Mock /QQXYZ/ however, serves a vital role in facilitating binary 
input and output of data points for the image space both within the 
calling program and PRNT3D. /QQXYZ/ is structured as follows: 

COMMON /QQXYZ/ X, Y, Z, FINI, EOFT 
REAL X, Y, Z, FINI 

LOGICAL EOFT 

where Y, Z are the coordinates of one data point, FINI is the value 
assigned to the end-of-file indicator (-99999.0), and EOFT is a logical 
variable v;hich is set true iff an end-of-file is read. Any binary data 
file passed to PRNT3D by a calling program should be read, '^^itten, 
terminated, and rewound by the special file manipulation subroutines 
QQRXYZ, QQWXYZ, QQWEOF, and QQREW, respectively, contained in PRNT3I , 
The calling program must explicitly set FINI = -99999.0 before any of 
these routines is invoked, otherwise FINI v;ill be undefined and the 
results unpredictable. 

• Files: 

PRNT3D uses five files named TLF, OTP, ERF, DTP, and DTFl. TLF is 
the unit number of a formatted file which passes plot title information 
to PPJJT3D. It must contain six card images, each of which is at least 
66 characters long. The first card imago labels the x-axis (only the 
first 60 characters are displayed), the second labels the y-axis (only 
the first ^-'5 characters are displayed), and the next four label the top 
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of the clot (all 66 characters are displayed). TLF is normally v/ritten 
by the calling program, although it may reside on an external file. It 
is automatically rewound by PRNT3D at the start and end of execution. 

OTP and ERF are the unit numbers of formatted files written by 
PRi'lTSD which display the printer plot output and any error messages, 
respectively. OTP and ERP may reference the same unit number. 

DTP is the unit number of a binary file which passes the x, y, z 
coordinates of plot image data points to PRNT3D. DTP is normally written 
by the calling program using subroutine QQWXYZ and must be terminated by 
an end-of-file wr'itten by QQV/EOP. The order of points on DTP depends on 
the enrichment option selected. If no enrichment is called for, the 
points may be ordered randomly. If one-dimensional enrichment is called 
for, then the points must form a sequence of broken line segments where 
all z coordinates within a segment are equal. If two-dimensional enrich- 
ment is called for, then the points must form a sequence of triangles. 
Por a more complete description of enrichment and its effects on ordering, 
refer to the user^s guide. DTP is also used as a scratch file to hold 
temporary information if the enrichment or multipaging options are 
selected, so its original contents are usually destroyed. DTP is 
automatically rewound by PRNT3D at the start and end of execution. 

DTPl is the unit number of a binary scratch file which is written 
and read by PRNT3D if the enrichment or multipaging options are selected. 
DTPl is automatically rewound by PRNT3D at the start and end of execution. 

The characteristics of the files used by PRNT3D are summarized as 
follows : 
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FILE 
HAME 


AUTOMATIC 
REWIND 


READ BY 
PRNT3D 


WRITTEN BY 
PR^IT3D 


UNIQUE UNIT 
NUMBER 


TLF 


Yes 


Yes 


No 


Yes . 


OTf 


No 


llT_ 

No 


1 es 


No 


ERF 


No 


No 


Yes 


No 


DTF 


Yes 


Yes 


Yes 


Yes 


DTFl 


Yes 


Yes 


Yes 


Yes 



The column labeled "AUTOMATIC REWIND" means that subroutine PRNT3D 
rewinds the file at the start of its execution and then rewinds it again 
just before it returns to the calling program. The column labeled 
"UNIQUE UNIT NUMBER" specifies whether or not different file names may 
reference the same unit number. The only cases where the unit numbers 
need not be unique are OTF and ERF, in which case OTF = ERF. 

Subroutine PRNT3D does not check the files for format errors nor 
does it check to see if file names reference valid unit numbers. These 
types of errors will generally trigger ei-ror messages and actions which 
are peculiar to a given computer installation - 

• File Manipulation Subroutines: 

PRNT3D contains four subroutines which manipulate the binary data 
files. These routines are invoked by PRNT3D and also by the calling 
program which prepares data for PRNT3D, and are always used in conjunction 
with the common block /QQXYZ/ which holds the x, y, z coordinates for a 
single point to be written or read. The routines are: 

QQRXYZ (FILE, LOGX, LOGY, ERR): Reads the x, y, z coordinates of one data 
point from FILE and stores the coordinates in /OOXYZ/. Tf LOnX nr 
LOGY are .TRUE., the x or y coordinates are converted to base 10 
logarithms. 

ERIC 



QQWXYZ (FILE ): Retrieves the x, y, z coordinates of a point stored 

in /QQXYZ/ and wi^ites them on FILE. 
QQWEOF (FILE ): Writes the point (FINI, Flis^I, FINI) on FILE to indicate 

the end-of-file. 
QQREW (FILE ): Rewinds FILE. 

As an example of the use of these routines in the calling program, 
consider the following fragment of computer code which writes 1000 data 
points on unit 1, terminates unit 1 with an end-of-file, and then reads 
the points back in. Note FINI must be established before the routines 
are called and EOFT must be cleared before testing for an end-of-file. 
Also note that X = Y = Z = FINI = -99999.0 in common block /QQXYZ/ when 
the end-of-file is read. The code is as follows: 



COMMON /QQXYZ/ X, Y, Z, FINI, EOFT 

C SET END-OF-FILE INDICATOR 

FINI = -99999.0 

C 

C REWIND TAPE 1 

CALL QQREWd ) 

C 

C WRITE 1000 DATA POINTS ONTO TAPE 1 

DO 10 I = 1, 1000 
X = • • • 
Y = • • - 
Z = 

CALL QQWXYZd ) 
10 CONTINUE 

C 

C END FILE TAPE 1 

CALL QQWEOFd ) 

C 

C REWIND TAPE 1, AND PRESET EOFT TO FALSE 

CALL QQREWd ) 
EOFT = .FALSE. 
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c 

C READ BACK THE 1000 POINTS 

DO 20 I •= 1, 2000 

CALL QQRXYZd,- FALSE,,, FALSE., lERR) 
IF (EOFT) GOTO 30 
... = X 
. • • = Y 
... - z 
20 CONTINUE 

C 

30 CONTINUE 
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Structure 



The overall structure of PRNT3D is displayed in the following flow chart: 



• 
• 

• 



Set constants 

Save the values of the arguments in common 
block /QQPRl/ 

Set flags (LOGX, LOGY) for logarithmic or 

linear scaling 

Initialize internal values 

Set logic switches if windowing or 

enrichment are called for 

Rewind files TLF, DTP, DTFl 

Read six titles from TLF 

Check for errors in the arguments 



Yes 



i 



Were errors found? 



I No 



Yes 



Is windowing called for? 



No 



Call QQWIND and deter- 
mine the X, Y, or Z 
boundaries for a global 
window which encloses 
all the data 



Is enrichment called for? 



Yes 



No 



Copy DTF onto DTFl, convertint3; 
original data to logarithmic 
scale, if necessary 



Call QQID or QQ2D 
which read DTF and 
write enriched points 
on DTF 



Yes 



Were enrichment errors found? 



No 



Yes 



Is multi-paging called for? 



No 



Write error 
messages and 
set ERR > 0 



Read the original data 
or the enriched data 
and plot it on OTF 



Save the boundaries 
for the global window 
which encloses all the 
data 



Rewind TLF, DTF, DTFl 



Starting at the upper 
left corner of the global 
window, extract the data 
for each page in turn and 
plot it on OTF, until the 
lower right corner of the 
global window is plotted 



Return 
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Subroutines 

The following is a list and brief description of all subroutines 
contained in PRNT3D in alphabetical order: 



QQID: Called when one-dimensional enrichment is selected. It transfers 

all points from DTF to DTFl and calls QQLINE to add points to 
DTFl if the z~coordinates of two consecutive points on DTF are 
identical- 

QQ2D: Called when two-dimensional enrichment is selected. It transfers 

all points from DTF to DTFl. After every third point, it 
calls QQTRI which adds points to DTFl. It assumes that three 
consecutive points on DTF are the vertex points of a single 
triangle- 

Checks NX, NY, and ZMAP for errors in value. 

Copies DTF onto DTFl, making logarithmic conversions, if called for. 
Writes out error messages on ERF and sets ERR to an appropriate 

nonzero value. • — 

Extracts a subset of the data from a file which lies within 

the X and y boundaries of a local window which encloses the 

data for the current page to be plotted. The extracted lata 

is written on another file. 

QQF: Reads data from a file and maps each data point within the 

current window onto a cell in the image space F. It also 

accumulates the number of points mapped to each image cell, in 

the array NP. 

QQLBL: Determines the minimum and maximum numeric labels for the 
global plot axes. 



QQCK: 

QQCOPY : 
QQER: 



QQEXTR: 
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QQLINE: Called by QQID to compute a set of linearly interpolated 

points between two given points. The interpolated points are 
written on DTFl. 

QQPART: Determines the x and y boundaries for a local window which 
•encloses the data for the current page to be plotted. 

QQPRNT: Prints the contents of the 60 by 45 image array F along with 
appropriate titles and scaling information. 

QQRPT: Called when multi-paging is selected (i.e., NX > 60 and/or 

NY > 45). Given a window whose size is determined in the main 
program, it repeatedly calls routines which position the 
window (QQPART), extract the data in the window (QQEXTR), 
compute the image array for the current page (QQF), and display 

r 

the current page (QQPRNT). 
QQRlsYZ: Reads one x, y, z coordinate triple from a binary data file 

and stores it (possibly after x and/or y has been converted to a 

logarithmic value) in common block /OQXYZ/. If X = Y = Z = FINI , 

it sets EOFT = .TRUE, 
QQSAVE: Saves the x and y boundaries for the global window which 

encloses the data. 
QQSCAL: Returns an integer between 1 and 10 which divides a range of 

values into 10 equi-spaced levels - 

QQSFMT: Formats scale factors^ 

QQSTOR: Fills an array with one character. 

QQTRI : Accepts the x, y, z coordinates of three vertix prints of a 

triangular region and generates a series of equi-spaced linearly 
interpolated points along the plane defined by the three 
points. The points are written on DTFl. 
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QQWEOF: Writes the point (flNI, FINI, FINI) on a file. This point 

establishes the end-of-f ile. 
QQWIND: Computes the x, y, and z coordinates of a cubical window v/hich 

encloses the data. It is called if: 

XMIN >^ Xj^AX, or 
YMIN >^ YMAX, or 
ZMIN >_ ZMAX. 

If any one or more of the above conditions are encountered it 
computes new values for the x, y, or z axes which completely 
contain the data, 

QQWXYZ: Writes the x, y, z coordinates for the point currently stored 
in /QQXYZ/ on a file. 

Coding Information 

• Literals and constants: 

The literals used in PRNT3D can be divided into four classes: 

1) The integers 0, 1, 2 and the real numbers 0.0 and 1.0 used as 
initial values or offsets; 

2) the logical constants .TRUE, and .FALSE.; 

3) the integers 1, 2, 3, and 4 used as subscripts; 

4) the integers 1 through 10 used as error numbers. 

All constants are assigned values in the "CONSTANTS" section of 
each routine and are described as follows: 
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CONSTANTS 



NAME 


VALUE 


SUB. 


BLOCK 


DESCRIPTION 


NXD 
NYD 


60 
1+5 


QQPR3D 
QQPR3D 


/QQPRl/ 
/QQPRl/ 


The dimensions of the x and y 
axes of the image space. 


EXTRME 


1030 


QQPR3D 


/QQPRl/ 


An extreme value which should 
exceed the absolute value of 
the X, y, or z coordinates of 
any point in the data. 


EPS 


10 


QQPR3D 


/QQPRl/ 


An extremely small value which 
is used to check if the tri- 
angular regions enriched by 
QQTRI are malformed. 


PIO 


2 


QQPR3D 


/QQPR2/ 


A power of 10 which is used to 
compute the integer values of 
numeric labels for the x and y 
axes. 


DZMAP 


10 


QQPR3D 


/QQPR4/ 


The dimension of the array 
ZMAP. 


MINZ 
MAXZ 


0 
9 


QQPR3D 
QQPR3D 


/QQPR4/ 
/QQPR4/ 


The minimum and maximum for 
the values in the array ZMAP. 


MINNX 
MAXNX 
MINNY 
MAXNY 


2 
999 

2 
999 


QQCK 
QQCK 
QQCK 
QQCK 


— 


The minimum and maximum values 
for NX and NY. 


ROUND 


1.5 


QQF ' 




A term which is used to round 
location values upward (great- 
er than zero) when calculating 
the location of an image cell. 


BLANK 
MINUS 
XX 


"X" 


QQPRNT 
QQPRNT 
QQPRNT 


— 


Single characters which help 
form the plot boundaries. 


LINLEN 


66 


QQPRNT 




The maximum length of a title 
line. 


LBLPT 


r 

b 


(jQrKN i 




The distance between tic marks 
on the axes. 


ALFA(''-) 


II )t II -| It 

ngii "9»' 


QQPRNT 




An array of the alphabetic 
values for blank and the 
digits 1 through 9. 


PLUS 
MINUS 


ii^n 


QQSFMT 
QQSFMT 




Single characters which indicate 
the sign of a number. 
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NWT(''0 



1,1,1,1,1, 
1,2,2,3,3 



QQPRNT 



The number of overprints re- 
quired for density levels 1 
tlu^ough 10. 



M(^,^) 



QQPRNT 



An array of overprinting 
characters. 



R0UND2 



1.0001 



QQSCAL 



A rounding factor. 



• Word Lengths: 

All values in PRNT3D are assumed to be stored in full length single 
precision words. All alphanumeric values are stored one character per 
word . 

• Naming Conventions: 

All subroutines and common blocks start with the letters "QQ" in 
order to insure uniqueness. In addition, all variables in a common 
block which are not used in a given subroutine are represented by dummy 
variables of the form ZZnn or ZZZn where n is a digit. These duinmy 
variables may span more than one array or set of names. For example, 
assume subroutine SBl only makes use of the variable FINI in /QQXYZ/. 
Then /QQXYZ/ is declared in SBl as follows: 



Limitations 

PRNT3D checks for ten error conditions. If any of these conditions 
occurs", it outputs an appropriate error message and returns to the calling 



SUBROUTINE SBl 



COMMON /QQXYZ/ ZZZ1(3), FINI, ZZZ2 
REAL ZZZl, riHI 

LOGICAL ZZZ2 
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program. For a description of the error conditions and messages refer 
to the user's guide. 

PRNT3D does not check to see if the files are correctly formatted 
or if unit numbers are valid. Such eiTors are left to the computer 
system. 

Extensions 

PRNT3D can be expensive to run if large numbers of data points are 
to be read, generated, or displayed. The majority of execution time is 
consumed in the input and output of data points using binary read/vrrite 
operations (formatted read/write operations are even slov;er). If suffi- 
cient computer memory is available, however, one can drastically reduce 
this time by storing the data points directly in memory and accessing 
them through simple memory reference operations. The four file manipula- 
tion routines discussed above were \vritten with just this possibility in 
mind. It is only necessary to alter these routines in an appropriate 
manner in order to simulate the binary read/write operations with retrieve/ 
store operations. The latter are logically identical to the former but 
are an order of magnitude faster. 

Computer Resources 
• Storage: 

The object deck for PRNT3D occupies 6500 (octal) words of storage 
when compiled under the CDC 6400 Minnesota Fortran 
compiler. To this must be added the 5400 (decimal) words in blank 
common used for the image space, plus buffer areas needed for the five 
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files TLF, OTP, ERF, DTP, and DTFl. On the CDC 6400, this amounts to 
approximately 6500 + 12U30 + 5000 = 26130 (octal) words of storage, some 
of which may be shared by the calling program.'- 

• Execution Time: 

The execution time for PRNT3D depends primarily on the number of 
plots and the number of points read/written/displayed. The following 
table gives the approximate times in CPU (central processing unit) 
seconds on the CDC 6400 computer, as a function of plot option and the 
number of points: 

APPROXIMATE 

PLOT OPTION NUMBER POINTS CPU SECONDS 

• One full page with 2D enrichment 

and overprinting. 7000 10.4 

• One full page with 2D enrichment 

but no overprinting. 7000 10.2 

• One full page with ID enrichment, 

no overprinting. 700 1.375 

• One nine-page plot with ID 

enrichment, no overprinting. 700 12 .05 

. Kachine Dependencies: 

PRNT3D and FFORM (the format free input system) are often used together, 
and both make use of blank common. This may cause a problem in computer 
systems which require all occurrences of blank common to be of the same 
length. 



"Note that the CDC 6400 has up to four instructions per word. 
Hence, other computers may require substantially more space for the 
computer code . 
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Sample Rms 

The annotated listings on the next few pages illustrate the control, 
program, and input data cards for' two sample runs, along with their 
associated output. The output for the second run consists of a set of 
printer plots, along with echoed input, which shows the effects of various 
plot options applied to a single data file of x, y, z coordinates. Note 
the input data cards in the second run are processed by a free form input 
system (Gales and Anderson 1978; Anderson and Gales 1970). 
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Sample Run No. 1 
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RUNSMALL. 

ACCOUNT* 36L96P02* . 

COMMENT. 

COMMENT. FETCH THE PPNT30 PROGRAM FROM DISK. 
COMMENT. 

ATTACH»PRNT3D» BPR3D* I D-BPR3D. 
COMMENT. 

COMMENT. COMPILE PROGRAM SMALL. 
COMMENT. 

MNFtL-0,E-l»B"SMALL . 
COMMENT. 

COMMENT. LOAD SMALL, PRNT3D AND EXECUTE SMALL. 
COMMENT. 

L0AD»SMALL,PRNT3D . 

EXECUTE. 

♦ EOR 

PROGRAM SMALL{TAPEl»TAPE2,TAPE3.nUTPUT,TAPF6-0UTPUT) 

C 

c 

C-PURPOSE 

C 

C A SMALL DEMONSTRATION OF THE USF OF PRNT3D. 

C 



ERIC 



C-GLOBAL VARIABLES 

C 

COMMON/QQXYZ / X, 



REAL 
LOGICAL 

C 
C 

C-LOCAL VARIABLES- 
C 

REAL 
INTEGER 



X , 

Z ZZl 



Y, 

Y, 



Zf 

I, 



F INT , 

F INI 



ZZZ1 



XX(6), 

TLF, 

ERR» 



YY(6) » 

OTF, 

I 



ZZ (6), 
ERF» 



XRICH» 
OTF» 



YP ICH 
DTFl* 



7M.AP (10 )f 



C 
C 

c 
c 
c 
c 
c 
c 
c 



DEFINITIONS 
XX* YY, ZZ 
I 

ALL OTHERS 



THE X, Y» Z COORDINATES OF A SFT OF k POINTS 
TO BE PLOTTED BY PRNT3n. 
LOOP INDEX, 

AS DESCRIBED IN PPNT3D PRDGRAMMER-S G'JIOF. 

















DATA 


X X { 1 ) , 


XX (2) , 


XX ( 3) , 


X X ) , 


XX ( ) , 


xy(6) 




1 . , 


2 ., 




R., 


9. 9, 


1 . 


DATA 


YY(1), 


YY( 2) , 


YY( 3 ) , 


YY ( ^ ) , 


YY ( 5 ) , 


YY( 6) 




2 


6., 


5.» 


9., 


3. , 


2 . 


DATA 


IZil), 


ZZ (2 ) , 


ZZ(3), 


ZZ(^ ), 


ZZ ( 5) , 


Z Z ( 6 ) 




^ ,f 


^ ., 






A. , 


A .00001 


DATA 


X RICH, 


YP ICH 












0.5, 


0.5 










DATA 


TLF, 


OTF, 


ERF, 


DTF, 


OTFl 






I , 


6, 


6, 


2, 


3 






DO 5 I 


- 1, 10 












ZHAP ( I ) - I - 


1 










F INI ■ 


-999q9.0 
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c 
c 

c- 

c 

c 

c 

c 

c- 

c- 

c 



•NOTE THAT POINT 6 - POINT 1 EXCFPT FOP THF Z VALUF WHICH. DIFFERS 
SLIGHTLY. THIS DIFFERENT Z VALUF PPFVENTS ENRICHMPNT 
FROM POINT 5 TO POINT 6. 



•START 

WRITE 



C 
C 
C- 
C 



C 
C 
C- 
C 



10 



OUT THE DATA POINTS AND TERMINATE WITH AN F-OF-F 

CALL QQREW(DTF ) 
DO 10 I « 1, 6 

X « XX { I ) 

Y ' YY ( I ) 

7 « ZZ ( I ) 

CALL QOWXYZCOTF ) 
C ONTINUE 

CALL QOWEDF(DTF ) 



-WRITE THE TITLES FOR THE PLOT 



FORMAT ( 

61H X-AXIS 



WRITECTLF, I ) 



» /61H 
W61H 

* /61H 

* /61H 
W61H 
, I ) 



TI TLE 
Y-AXIS TITLE 

1ST LINF AT TOP OP PLOT 

2ND LINE AT TOP OF PLOT 

3RD LINE AT TOP OF PLOT 

ATH LINE AT TOP OF PLOT 



-NOW CALL PPNT3D AND PLOT THE FIGURE. 



CALL Q0PR30{TLF,0TF,EPF,DTF,DTF1, 60, "^5. 

zmapj- o.»]o.»o.*io., o.,q., xpich^yrich, 

0.* .FALSE.* .TRUE.* . FALSE. > FRP) 

STOP 
END 



FOR 
EOF 



ERIC 



2^ 



1ST LINE AT TOP OF PLOT 

2ND LINE AT TOP OF PLOT 

3R0 LINE AT TOP OF PLOT 

ATH LINE AT TOP OF PLOT 
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0 



1. 000 



I .(186 

S 



773 



659 



5h5 



^32 



318 



20!) 



1:^3 
■X--- 



.3 22 

_x--. 



.661 
-X--- 



.631 
-X--- 



1 . 000 
■ — X 



1 



.091 



0 

X-AXIS 



i:j 3 



EOR 



SCALE FACTORS - X-A, 
ZO-Z^- 0(-?)^ 
Z5-Z9- 5.0001 0)^ 



.322 



: i s J E 1-01 

1 . 000 ( 0) , 
(5. 000( 0)/ 



. 1 ^'2 



Y - A X I 5 J 
2 . 00G( 
7 .000( 



t : + 0 , 
0) f 



.66 1 



. 0U0( 0)/ 
.00 0 ( ,;)/ 



!3i 



• — X 
I . 000 



c +00 

<^ .000 ( 37 ) 
9.000 ( 0) 
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Sample Run No. 2 
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ERIC 



RUNLAR6E»CM55000»T50. 
ACCOUNT* 3GL96P02, 



COMMENT. 
COMMENT . 
COMMENT. 
COMMENT. 
COMMENT . 
COMMENT. 
COMMENT. 
COMMENT. 
COMMENT. 
COMMENT. 

ATTACH* BPR3D» ID-BPR3D 
ATTACH, BFF, ID«BFF. 
HNF, L"0, E-1, B-L ARGE . 



THE FIRST CARD ABOVE IDENTIFIFS ♦ 
THE JOB, SPECIFIES THE MEMORY * 
REQUIREMENTS (55000 OCTAL) AND THE* 
ESTIMATFD CENTRAL PROCFSSnP TIMF ♦ 
IN SECONDS (50 OCTAL). THE SECONO* 
CARD IDENTIFIES THF BUDGET AND ♦ 
PASSWORD. ♦ 



COMMENT. 
COMMENT. 
COMMENT . 
COMMENT. 
COMMENT . 
COMMENT. 
COMMENT . 
COMMENT. 
COMMENT. 



♦ BPR3D IS THE FILE CONTAINING THF 

♦ 3D PRINTER PLOT SUBROUTINE IN 

♦ BINARY FORM, BFF IS THF FORMAT 

♦ FREE INPUT SUBROUTINE IN BINARY 

♦ FORM. THF MNF CARD COMPILES THF 

♦ PRNT3D TEST PROGRAM AND WRITES 

♦ THE BINARY PROGRAM. TO FILE LAPGF. 



COMMENT. 

L0A0,LARGE,5PR3D,BFF. 
EXECUTE . 

. * THE LOAD Card LOADS THE TEST * 
. ♦ PROGRAM (ON FILE LARGF) INTO MEM- ♦ 
. * DRY, ALONG WITH BPR3D AND BFF. * 
. ♦ THEN CONTROL IS PASSfcO TO THE TEST* 
. ♦ PROGRAM* WHICH BEGINS FXECUTION. * 
INPUT IS HANDLED BY BFF, AND ♦ 
OUTPUT IS PLOTTED BY BPR3D. * 



COMMENT. 
CGMMENT. 
COMMENT. 
COMMENT. 
COMMENT . 
COMMENT . 
COMMENT. 
COMMENT. 
COMMENT. ♦♦♦♦ 
♦ EOR 

PROGRAM 



TEST ( IN PUT, OUTPUT, TAPE 1 .TAP F?, TAP F 3, TAPF 5: 
T APE6-0UTPUT) 



INPUT; 



C 
C 

C-PURPOSE 
C 
C 
C 
C 
C 
C 
C 



THIS PROGRAM EXERCISES 
TO DEMONSTRATE SOME OF 



A NUMBER OF PLOT 
THE CAPABILITIES 



OPTIONS AND SERVES 

OF THE PPNT30 PACKAGE 



GLOBAL VARIABLES-- 
COMMON// 



WSPACE ( 5A00 ), 



INTEGER 

REAL 

LOGICAL 

INTEGER 

REAL 



NTR I , 

ECHO, 

N X, 

YMIN, 

DFAULT, 

NTRI, 

COORD 

ECHO, 

NX, 

XMIN, 



TRI (3,20), 
FINIS, NOOFLT, 



CGCRD(3,20) 



NY, 
YMAX, 
OVPPNT, 
TRI 

FINIS, 
NY, 
XMAX, 



ZMAPCIO) » 



ZMIN, 
AVE . 



NODFLT 

ZMAPj 

YMIN, 
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ZMAX, 



ERR 
YMAX, 



XR TCH, 
EPP 



XMAX> 
YPTCH, 



Z K A X 
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ERIC 



LOGICAL 



C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C-LOCAL VARIABLES 

c 

INTEGER 



DEFINITIONS 

WSPACE 

NTRI 

IRK J, I ) 

COORDC L» K ) 

ECHO 

FINIS 

NODFLT 



XRICH» YRICH, DFAULT 
OVPRNT, AVF> INT2D 



THE WORKSPACE ARRAY WHICH HOLDS THE IMAGE 
ARRAY TO PF PLOTTFO. 

THE NUMBER OF TRIANGLES WHICH APP'^AP 
TPI(l-2-3,I) IDENTIFIES THE 1ST, PNO, 
POINTS WHICH FOPM THF I-TH TRIANGLE, 
CnORD(l-2-3»K ) DEFINES THE X, Y, A^'n 
COORDINATES FDR THE K-TH DATA POINT. 
TRUE IF INPUT IS TH PF ECHOED. 
TRUE TO TERMINATE THIS PROGRAM. 
TRUE IF DEFAULT VALUES ARE NOT TO PE 



IN THE INPUT 

AND 390 



PERF AD, 



ALL THE OTHER VALUES ARE DEFINED IN THE PRNT3D USER-S GUIDE. 



I NF, 
T LF, 
N , 



ECF, 
OTF» 

SIO 



FCFX, 
ERF, 



DCF, 
XYF, 



DFF, 
XYFl , 



PMF, 





REAL 




X{300), Y(300), Z(300) 


c 
c 
c 


DEFINITIONS 






c 


INF 




I NPUT FILE. 


c 


ECF 


M 


ECHO FILE. 


c 


ECFX 




ECHO FILE, OR 0 IF NO ECHO PEOUESTF 


c 


' DCF 


It 


DECLARATION FILE. 


c 


DFF 


ar 


DEFAULT VALUE FILE. 


c 


PMF 


X 


PROMPTER MESSAGE FILE. 


c 


TLF 




TITLE FILE, FOR 6 LINE PLOT TITLE. 


c 


OTF 


■ 


OUTPUT FILE, FOR PLOTS. 


c 


ERF 


M 


ERROR FILE, FOP FPRGR MESSAGES. 


c 


XYF 


K 


DATA FILE* FOR X, Y, Z COORDINATES. 


c 


XYFl 




SCRATCH DATA FILE. 


c 


N 


m 


NUMBER OF DATA POINTS. 


c 


SIO 


9 


THE STARTING POINT IN BLANK COMMON 


c 






FOR THE ARRAYS OF INPUT VALUES. 


c 
c 


X, Y, Z 


7L 


COORDINATES FDR ALL DATA POINTS. 


C 

c- 








c 


DATA 




INF, ECF, DCF, DFF 



DATA 

C 

c 

C-INITI ALIZATIQN- 
C 



5 . 

TLF, 
3» 



6, 

01 Ft 
6, 



EPF » 
6, 



3, 

XYF, 
1 , 



3, 

XYFl, 
2, 



PMF 

Sin 

?AO0 



ERR ■ 0 

CALL NML 1ST (S I0» IH 
I F ( ERR.GT.O ) GO TO 
NODFLT » .FAL-SE. 



»DCF, ERF, 
1000 



ERR ) 



^ ( 
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C 

C-START 

C 

100 I F ( .NOT .NCDFLT) CALL WRTOFF(DFF ) 

I F ( .NOT .NODFLT) CALL OOR E AD ( OF F , 0 . F " F . FPP) 

I F(ERR.GT.O ) GO TD lOCO 

WRITE(PHF,1) 

I FORMAT ( 33H0 PROGRAM -TEST- READY FDR INPUT /IH ) 

ECFX » 0 

IF(ECHO) ECFX ■ ECF 

CALL QQREAD (INF, ECFX, EPF, ERP) 

IF{FINIS) GO TO 1000 

IF(ERR.GT.O) GO TO 100 

CALL INCHK { EPF, ERR ) 

I F CERR.GT.O) GO TO 100 

CALL CALC (NTRI,TRI, COORD, X,Y,Z,N) 

C ALL WRTXYZ {XYF,N, X, Y, I ) 

CALL WRTTLF(TLF) 

CALL QQPR3D(TLF,nTF,ERF,XYF,XYFl,NX,NY,ZMAP, 

XMIN,XMAX,YMIN,YMAX,ZMTN,7MAX,XRICH» 
YRICH,OFAULT, OVPPNT, AVF, INT2D , ERR) 

GO TO 100 

C 

1000 WPITE(PMF,11) 

11 FORMAT (26H0 RROGRAM -TEST- TERMINATED ) 

STOP 
E ND 

SUBROUTINE INCHK(ERF, FRR) 

C 
C 

C-PURPOSE 

C 

C THIS ROUTINE SHOULD CHECK THE VALUES OF ALL INPUT PARAMETERS, 

C BUT, IN FACT, THE ROUTINE IS MERELY DUMMIED IN. 

C 

INTEGER ERF, ERR 

R ETURN 
E ND 

SUBROUTINE C ALC ( N TR I , TR I , C OORD , X,Y,Z,N) 

C 

c 

C-PURPOSE 

C 

C THIS ROUTINE GENERATES AN ARRAY HF X, Y, AND Z CDHRniNATES 

C FOR ALL OF THE DATA POINTS SPECIPJED IN THE INPUT. 

C 

C 

C-ARGUMENTS 

C 

INTEGER NTRI, TRI(3,20)» N 

REAL COORD{3»20), X(l), Y(l), Z(l) 



C 

C DEFINITIONS 
C 

C NTRI " THE NUMBER OF TRIANGLES. 

C TRl(J»n » TRI(l-2-3,I) ARE THE INDICES OF THHSE DATA POINTS 

C WHICH FORM THE I-TH TRIANGLE. 

C COORD{*,P) « C OORD(l-2-3,P ) ARE THE X, Y, AND Z CQORDINATES 
C FOR DATA POINT P. , 

^ C X(*)# Y(* ), Z{* ) 
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THE X, Y, Z COOROI^JATES FOR DATA POINTS. 
THE NUMREP OF X, Y» Z COnROlNATFS. 



LOCAL VARIABLES 



INTEGER I, J, K 

DEFINITIONS 

P - THE IDENTIFICATION NUMPFR OF A POINT. 

I « THE INDEX FOR A TRIANGLE (1 - NTRT). 

J • A.N INDEX FOR A POINT WITHIN A TRTANGLF (1,?,3). 

K » THE INDEX OF AN X, Y, Z COORDINATE (1 - N). 



START 

K - 0 

DO 10 I » 1, NTPI 
DO 20 J » 1, 3 
K « K + 1 
P - TRI ( J, I ) 
XCK) » COORD( 1* P) 
Y(K) - C00RD(2»P) 
Z(K) » C00RD(3> P) 
20 CONTINUE 
10 CONTINUE 

N - K 
R ETURN 
E ND 

SUBROUTINE W P TX Y Z ( X Y F > N , y / Y , Z ) 



PURPOSE 

WRITES OUT THE X, Y, Z COORDINATES HNTO XYF. 



ARGUMENTS- 



INTEGER 
REAL 

DEE INITIONS 



X YF> 
X (1 ), 



N 

Yd), 



Z (1 ) 



XYF 
N 

X, Y, Z 



BINARY OUTPUT T L E . 

NUMBER OF POINTS TH WRITE OUT. 

ARRAYS OF COORDINATES TO OUTPUT. 



GLOBAL VARIABLES 

COMMON/QQXYZ/ XX, YY» Z7, FINI, Z7Z1 

REAL XX, YY, ZZ, FINI 

LOGICAL ZZZl 

DEFINITIONS 



XX» YY, ZZ - THE X, Y, Z COORDINATES FOP ONE DATA PQlNT. THE 

29 
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NAMES QF THESE VALUES APE CHANGED IN THIS ROUTINE TD 
AVOID CONFLICT WITH ALOFADY DFFINFO CnORO. ARRAYS. 
FINI « END nF FILE MARKER. 



LOCAL VARIABLES 

INTEGER I 

I ■ A LOOP INDFX. 



INITIAL IZATI ON 

FINI - -QQQqg.o 



< 



START 

DO 701 I - 1* N 
XX - X ( I ) 
YY « Yd) 

ZZ = Z ( I ) 
CALL CCWXYZ(XYF 
701 CONTINUE 

CALL QQWEOFCXYF ) 

RETURN 

END 

SUBROUTINE WRTTLF(TLF ) 



PURPOSE- 



WRITES SIX BLANK CARD IMAGES WHICH ARE NEEOFD 
FOR THE PLOT TITLE FILE. 



ARGUMENTS 

INTEGER TLF 

TLF - TITLE F ILf . 



START ; 

REWIND TLF 
W R I T E ( T L F , 1) 

1 FORMAT (IH /IH /IH /IH / IH /IH / ) 

REWINO TLF 
RETURN 
FND 

SUBROUTINE NM L I S T I I ND X» N A ME » DC F > E R F , ERR) 



PURPOSE- 



DEFINES THE NAMES* TYPES* DIMENSIONS* ANO ORDER 
OF THE INPUT VARIABLES. 
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C 

C- 

C 

C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C- 

c 



ARGUMENTS 

INTEGER 



INDX, NAf^F» 



DCF 



EPF. 



EP P 



DEFINITIONS 

INOX 
NAME 

DCF 
ERF 
ERR 



THE STARTING POINT IN PLANK COMHON FOP THE INPUT. 
A ONE CHAFACTFR NAME (IN THIS CASF» BLANK) 
WHICH SELECTS AN I/O LIST . 

THE FILE ON WHICH THE PFCLAPATIONS ARE WRITTEN. 
ERROR MESSAGE FILE. 
ERROR NUHPER. 



■START- 



REWIND DCF 
WRITE{DCF,1 ) 
REWIND DCF 

CALL QOINTL ( INDX, NAMEfDCF, ERF, 
R ETURN 



ERR) 



C 
C 

c- 

C 



FORMATS- 



1 FORMATC 
61H 
/61H 
/61H 
/61H 
/61H 
/61H 
/61H 
/61H 
/61H 
) 



INTE GER 
REAL 
LOGI CAL 
INTE GER 
PEAL 



LOGICAL 
i 

E ND 



NTR I, 



TRI { 3, 20) 



COORD (3* 20) 



ECHO, 

NX, 

XMIN, 

ZMAX, 

OVPRNT, 



FINIS, NODFLT 



NY, 
XMAX » 
XPICH, 
AVE, 



ZMAP (10) 
YMIN, 
YR ICH, 
INT2D 



YMAX, 
DF AUL T 



ZMTN, 



C 

c 

c- 

c 

c 

c 

c 

C- 

c 

c 

c 

c 

c 

c- 

c 



SUBROUTINE WRTDFF(DFF ) 

■PURPOSE 

WRITES OUT DEFAULT VALUFS FOR ALL INPUT PAPAMETPPS 



■ARGUMENTS- 
INTEGER 
DFF 



DFF 

« DEFAULT VALUE FILE. 



•START- 



REWIND DFF 
WRITECDFF,!) 
REWIND DFF 
R ETURN 



ERIC 
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C 
C- 



FOkMATS 

1 FORMAT 
6iH 
/61H 
/61H 
/61H 
/6 IH 
/6iH 
/61H 
/61H 
/61H 
/61H 
/6 IH 
) 



N T K I - ;i / 
TRI • i, 3i 2^ 
? / 6 ^ 7 / 
CCjuKO » 1/3^1/ 

't . 2 ^ 2 . d ^ I / 
ECHO - . FINIS 



Z t f 'J 9 f 'J > b S 

. F • > NJLi FIT * . F • ^ 



Z A P » Of 1,29 If ^pbfbfl , '^y'if XMW « / X M A X - 
YfilN - 0/ YMAX « 0/ ZMiN « J/ ZMAX =« 9t 
XklCH « O.bf Y.-<iCH U.-j^ DFAJLF « 0^ 
UVPn'NT « .T./ AVL - lNT2u - .1.^ i 



♦EOR 
/ 

/ 

/ THE FIRST RUN PLOTS EIGHT POINTS IN THE r^b'GION 1 < X < 5 AND 

/ I < Y < . THE POINTS ARE NUMBERED I THKJUGH 6 AnU NO 

/ 1 NfEkPULATIUN IS DONE BETWEEN POINTS. IHE JEFAULT X> 1> AND L 

/ COORDINATES FUR THE c3 POINTS AkE AS FOlLu..:> 

/ 

/ POINT X Y 2 

/ 



/ 


1 


1 


3 




1 


/ 


2 


3 






1 


/ 


3 


a 






1 


/ 


^ 


3 






1 


/ 


5 




. 


0 


1 


/ 


6 




3 




i 


/ 


7 




I . 


1> 


1 


/ 


8 


3 


i 




1 



/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 



THE POINTS ARE DESCRIBED BY A TwO 
NAMED -COORD- WHICH IS STRUCTURED 
COORO(1»P) - X COORDINATE FOR 
C0aRD(2*P) - Y COORDINATE FOR 
CQORDCi,?) - Z COORDINATE FOR 
FOR EXAMPLE* SETTING CuOkDCZ/I) - 
Y COORDINATE FOR POINT 1 EQUAL TO 



0IMbNS^O^^AL ARKAY 

AS FOLLOv/SJ 

POINT P 

POINT P 

POINT P 

3 SETS THE 

3/ WHEREAS StfTIUG 



C00RD(1*5 ) 
5 EQUAL TO 



.2 . 



SETS THE X COOkDlNAIE OF POINT 



IN ORDER TO NUMBER THE POINTS IN TriE PLOT* 

THE DEFAULT Z COORDINATES FOR ALL POINTS* THAT iS* 

C00RD(3/J) FOR J - i* Q, ARE CHANGED FRUii i 

TO THE VALUES 1 THROUGH 8, AS FOLLOWS 



COORDO* 1) 
COORD( 3* 'tJ 
COORD(3/7) 

THE FOLLOWING 



1/ C00RD(3*2) - Z, 

C0DRD(3*t)) - 
7/ COORD(3*8) " 3/ 



COORD (3*3) 
COOkDC 3* !d) 



3/ 
6/ 



XRICH 
XNT2D 



0* 
.F .* 



PLOT PARAMETERS ARE INPUT 
YRICH - 0, 
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OVPRNT - .F., i 

THE SECOND RUN DUGS A l)NE -0 I rtE NS I Qri I Th K H OL. A Tl G.N iJtTWEbN 
SELECTED POINTS FOk.IInG 3 TRIANGLES IN THc REGIU*. THE rRlAJlGLES 





T W P 
1 M C 


FULL JWING PUI NTS 


A s 
A o 


V L r. i i C 




TRIANGLE 


1 s 


POINTS 


i> J/ 


AND 


c 






T & i A N 1 P 
i f\ X H Ji VJ L C 




POINTS 


2/3. 


AND 








TRIANGLE 


3 t 


POINTS 




AND 


5 






TRIANGLE 




POI NTS 


2> 


AND 


6 






1 r\ i A Ji Vj L C 


1/ • 


POINTS 




AND 


7 






T u T A N 1 P 


O * 


POINTS 




AND 


7 






1 r\ 1 A M o L 


7 1 


POINTS 


'Jf ^» 


AND 


d 






TRIANGLE 


8 I 


POINTS 




AND 


d 






THE DEFAULT 




Y/ AND Z 


COOROINAT 


£S 


FOR THE 


POINTS ARE 


AS FOR RUN 1 


« 


THt FOLLOWING 


PLOT 


PAR Ai-IE TE^S 


ARE I iN P U T 


XRICH ■ Q 


.Op 


/ YRICH 


- 0 










INT2D - . 


F.# 














□VPRNT - 


.F . 
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/ NGTEl THE INTERPOLATION ALGORITHM DEPh.^DS ON THr ORDERING OF THE 

/ POINTS IN THE DATA SET. THE ORDERING OF THE POINTS IN THE DATA SET 

/ FOR THIS PARTICULAR RUN IS SUCH THAT NOT ALL TRIANGLES ARE 

/ COMPLETED BY THE INTERPOLATION* THUS THE LINES dcTWcEN POINTS L 

/ AND 2 AND BETWEEN 2 AND 6 DO NOT AP^>tAK IN THE PuOl* 

/ 

/ 

^^^^i^^^^ifif^^^^^^if^ii^i^tfififi^if^fif^ti^if RON 3 <i¥**v««'*«;»«*«««Vifj^ + ««««.«i4^* + «irv*«***i( 
/ 

/ THE THIRD RON IS A DETAIL OF RON 2 AND UISPLa/S REGION 

/0EFlNEDBY3<X<p AND i<Y<3 

/ THE FOLLOWING PLOT ^^ARAIVTEr^S ARE iNPUf 

/ 

INT2D - .F,> 

OVPRNT » .Fw 

XMIN - 3/ Xr.AX « 

YMIN » 1/ YMAX » 3/ 

XRICH » 0.0 1/ fKLCH - 0.01/ I 

/ 
/ 

/ THE FOURTH RUN DISPLAYS A SURFACE wITH I NT t. R POL A r 1 JN . THE 
/•2 COORDINATES FOR POINTS 2, s/ AND i3 ARE kAISED fO A VALOE 
/ OF 9, THE REMAINING POINTS HAVE THE DEFAULT 2 COOkOINATE 
/ VALOE OF I. 
/ 

C00RD(3/2) « 9/ C00RD(3M) « 9> CO0RD(3/:>) « 9, 

/ 

/ THE FOLLOWING PLOT PARAMETERS ARE INPUT 
/ 

XRICH « 0.035;> YRICH - 0.035/ INT2D - .T., 
OVPRNT « .T./ J 

/ 

/ + t***»»4'*vV»4^*4» + **«f*f*4^V*t**i R0*< 5 + 
/ 

/ THE FIFTH RUN IS THE SAME AS THE FOURTH RUN WITH kEVERSED VIDEO. 



33 



■ — 31 

/ 

CQ0R0(3*2) - 9, CODRDOi'V) « 9, CaaRD(3>&) " 9, 

/ 

/ THE FOLLOWING PLOT PARAMETERS ARE INPUT ~ 
/ 

QVPRNT - .T.; 

XRICH " 0.035^ YRICH « O. 035# I'n.,T20 » .T.; 
ZHAP » 9,a,7,b,'j,'-'>,3,?.,lf0f i 

/ 

+ + ♦ + + STUP PROGRAM *♦ 1 1' + + * 

/ 

FINIS ■ .T.; $ 

/ 

♦ EOR 

♦ EOF 
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PROGRAM -TEST- READY rJK INPUT 



THE FIRST RUN f^LUTS hiioHT PlJINTS i:^ U\z RtGiJA i < X < AND 
1 < Y < ^. THt PGItir:> A>'L MUMbtkr.i} 1 TflRJUGfi AND NJ 

INTERHOLATiON IS OJfl^ iitlwEEN PJINTS. iHz UtrAJLT X/ Y/ I 
COORUINATES f'Jr< ];it B HuIMS ARL AS hOLLu'Wj 



POINT X Y Z 

1 13 1 

2 3^1 

3 1. 2 1 
^ 3 2,^ 1 

5 -'1.2 2 • d J 

6 3 1 

7 - t . -J) 2 O 1 
b 3 i i 



/ THE POINTS ARE OESCRIbED BY A TWO DIMENSIONAL AKKAY 

/ NAMED -CUORO- WHICH IS STRUCTURED AS hULiU^SJ 

/ CGOkOdiP) - X COORDINATE FOR POINT P 

/ C00R0(2/P) - Y COORDINATE FUR POINT P 

/ C00R0(3;P) « I COORDINATE FUR POINT P 

/ FOR EXAMPLE/ SETTING C00R0(2d) ■ 3 SETS THE 

/ Y COORDINATE Fjk POINT 1 EUUAL TO 3/ WHEREAS SETTING 

/ COORD(i^:>) - ^.2 SETS THE X COORDINATE UF POIU 

/ 5 EQUAL TO ^.2. 

/ IN ORDER TO NJMnER THE PDIMS IN THc PLOT/ 

/ THE DEf'AULT L COORDINATES PGR ALL HulNFS^ IHAI IS/ 

/ C00RD{3/J) rJ-^ J -= 1/ &/ AkE CiiAN(jtD FROil 1 

/ TO THE VALUES i TtiRuUGH 6/ AS FOLLU'/.S 

C00RD(3/I) - 1/ COORD(3f2) - Zf COORD(J/:i) - 3> 

C00RD(3/^) « ^/ C00RD(3/!?] - , C00y.U(i/D) « 6/ 

C00RD(3/7) - 7/ CGJRD{3fcJ) « 8/ 

/ 

/ THE FOLLOWING ra 0 T PARAMETERS E InrMjl 
/ 

XRICH • 0/ YRICH « 0/ 

I N T 2 D - . r . / 

OVPRNT « .F ./ i 
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1 .000 
X— 

.OOOY 



3.659 



3.313Y 



2.977 



2 .636 



2 .295Y 



1.955Y 



1.61'.Y 



1 .273 



1 .OOOY 

X-- 
1. 000 



1.610 
— X 



2. 288 
— X — • 



2 .966 
• — X- — 
2 



■ — X- — 



^.322 
. — X — 



?. 000 

• — X 



■ — X-— 
1.610 



• — X- — 
2.288 



8 

■ — X- — 
2.966 



■ — X— 
3. 6^1 'f 



• — y — 

4.322 



■ — X 
5 . 000 



SCALE FACTORS - X-AXISs E+00 
ZO-Z*.- 0(-9), 1.000( i), 

Z5-Z9- 5.000( 1), 6.000( I), 

KOGRAM -TEST- READY FOR INPUT 



Y-AXISJ E+00 Z-AXISJ E+00 
2.000( 1), 3.000( 1)/ 4.000( 1) 
7.000( 1)/ 8.000( 1), 9.000( 0) 



^^^^^■^^^^^:^^^^^^1^^f^^^^i.^if:^^fi.^^^^^^^^^i^^^^f^ pyj^ 2 + + ♦ + + + + + * + + + ' 

THE SECOND RUN DOES A ON E-D I KEN S I ON INTERPOLATION BETWEEN 
SELECTED POINTS FORMING 8 TRIANGLES IN THE REGION. THE TRIANGLES 
FORMED HAVE THE FOLLOWING POINTS AS VERTICES 



TRIANGLE !« POINTS 1»3/ AND 2 

TRIANGLE Zi POINTS 2/3/ AND 4 

TRIANGLE 3\ POINTS 2/4/ AND 5 

TRIANGLE 4t POINTS 2/5/ AND 6 

TRIANGLE 5« POINTS 5/6/ AND 7 

TRIANGLE 6i POINTS 5/8/ AND 7 

TRIANGLE 7i POINTS 5/4/ AND 8 

TRIANGLE 8J POINTS 4,3» AND 8 

THE DEFAULT X/ Y. AND Z COORDINATES FOR THE POINTS ARE THE SAME 
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/ AS FOR RUN 1. THE FOLLOWING PLOT PARAMETFRS ARE INPUT / 
/ • / 

XRICH - 0.05» YRICH • 0.05, 

IN.T2D • .F., 

OVPRNT - .F., S 
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o 

FRIC 



35 



1. 000 



1.610 



2.288 



2 . 966 



3.6^^ 



4.322 













^ • 000 Y 










I 






1 ' 

1 . 


" 1 

. X 


I 






X J 


X 


I 






1 : 


1 


I 






1 1 


k XX 


3-659Y 






1 


1 


I 






1 1 

XX J 


1 

L X 


I 






1 


L 1 1 


I 






1 


1 


I 






1 


1 


3 .3 18Y 




1 




1 1 


I 




1 




1 


I 




1 




1 1 1 


I 




1 




1 

L 1 


I 




1 1 




1 


2 •977Y11 




1 

X 




11 111 
11 ill 


I 1 




1 1 




1 1 111111 
L 1 111111 


L -LI. 




1 




11111 11 


I 


1 


X 




1111 1 


I 


1 


1 

1 




1 111111 11 
L 11x111 11 


2. 636Y 


1 1 


1 




111 1 1 1 
L X 1 1 111 


T 


L 


1 




111 1 1111 
L 111 1 1111 


T 
1 


1 1 
i. i. 


1 

X 




1111 1 1 
L 1 1 1 1 1 1 


T 
1 


1 


1 




11 11 11 
.11 11 11 


I 


1 1 


X X 


•1 1 V 

111^ 


1 1 
1 1 


? POSY 


1 
1 




111 
ill 


1 1 


T 

X 


i. 


11 111 

11 111 




11 11 

L 11 11 


T 
1 


1 1 


1 111 

1 111 




1 1 

L 11 


I 


1 


1 111 

X XXX 




1 1 1 
1 11 


I 




1 1 1 

X i X 




11 1 

L 111 


1 ,9 55 Y 




1 




1 1 

b XX 


T 

X 




1 1 

X X 




1 11 
L 111 


I 




1 




L 111 


I 




1 




L 111 


I 




1 1 




1 1 


1 . 6 1 Y 




1 

1 




1 1 1 
1 11 


I 




1 1 




1 1 

X X 


I 




1 




i 1 1 


I 




11 




1 11 


I 






1 


L 11 


1 .2 73Y 

i 






1 : 
11 
1 : 


L 111 

111 

Lll 


I 






1 1 


1 1 


1 .OOOY 





















5 . 000 

X 



KOOO 



1.610 



2.288 



2.966 



3.6^^ 



^.322 



X 

5.000 



SCALE FACTORS - X-AXIS« E+00 
ZO-Z^- 0(-9)^ 1.000(-9), 

Z5-Z9- 5.000( 0)/ 6.000{ 0), 

ROGRAh -TEST- READY FOR INPUT 



Y-AXISl E+00 Z-AXISl E+00 
2.0 00 ( 0)^ 3.000( 0)^ ^.OOOC 0) 
7.000( 0)^ 8.000( 0), 9,000{ 0) 
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NOTE» THE INTERPOLATION ALGORITHM DEPENDS ON THE ORDERING OF THE 
POINTS IN THE DATA SET. THE ORDERING OF THE POINTS IN THE DATA SET 
FOR THIS PARTICULAR RUN IS SUCH THAT NOT ALL TRIANGLES ARE 
COMPLETED BY THE INTERPOLATION. THUS THE LINES BETWEEN POINTS 1 
AND 2 AND BETWEEN 2 AND 6 DO NOT APPEAR IN THE PLOT. 

^ # # t 1 1 f 4< t4< # « « # # # # 4t 4, # ^ ^ ^ ^ 3 4« + + + + + + + + + ^ + +^ + +^ 

THE THIRD RUN IS A DETAIL OF RUN 2 AND DISPLAYS THE REGION 
UEFINED BY 3 < X < 5 AND 1 < Y < 3 
THE FOLLOWING PLOT PARAMETERS ARE INPUT 



INT2D ' 
OVPRNT 
XMIN - 



.F .r 
" . F . / 

3f XMAX 
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mc^".^6.oi;"^SRi^A . 0.01, 



3,9 



37 



3.000 3.305 

X — — -X 

3.000Y1 

I 1 
II 
II 
II 

2.773Y1 

R 

1 1 
11 

Z.S'fSYl 

U Hill 

II 11111 

mil 
1 1 

2 .318Y1 

II 

ii 

II 

2 .091Y1 
II 
I 1 



6^^ 
•X— 



983 

11 
11 



322 
•X- — 



nil 

11111 
11111 



mil 



1 1 
11 

mini 
1111111 
11111 1 



1 
11 

11 
11 



1 



1 1 
11 
11 
11 



1 
11 

11 
11 



1 



1 1 
11 
1 



A. 661 5.000 
— X X 

nil 
11111111 
mm 11 
mm 111 
11 
11 

1 1 
1 1 

11 

11 
11 
1 1 



1 .36^Y1 

I 1 
II 

I 1 
II 

1 .636Y1 
II 
1 1 
II 

II • 
1 .'^OQYl 

1 1 1 
II 11 
II 11 1 

I 1 

1 . 182Y1 
I 1 

mil 
nil 

l.OOOYll 

X X 

3.000 3.305 



1 

1 1 



11 
11 
1 1 



11 
1 1 
1 1 
1 1 
1 

11 
1 1 
11 



1 
11 
1 



11 
11 
1 



11 
1 1 
11 



1 

11 



11 
1 



11 
1 1 
1 1 



11 
11 
11 



11 
11 
11 



1 1 
11 
11 

11 
11 
1 1 



111 

nil 
nil 



■ x— . 



-X — 

,983 



-X 

,322 



• — X — 
^♦.661 



■-X 



;CALE FACTORS 

:o-z^- 



Z5-Z9- 

ROGRAM -TEST 



X-AXISi E+00 Y-AXIS: E+00 Z-AXIS» E+00 
0(-9)/ 1.000(-9)/ 2.000( 0)/ 3.000( 0), ^.000( 0) 
5.000{ 0)/ 6.000( 0)/ 7.000{ 0)/ 8.000( 0)^ 9.000( 0) 



READY FOR INPUT 



/ 
/ 
/ 
/ 
/ 
/ 

/ 
/ 
/ 



THE FOURTH RUN DISPLAYS A SURFACE WITH INTERPOLATION, THE 
2 COORDINATES FOR POINTS 2/ ^, AND 5 ARE RAISED TO A VALUE 
OF 9. THE REMAINING POINTS HAVE THE DEFAULT I COORDINATE 
VALUE OF 1. 

C00RD(3/2) - 9/ C00RD{3/^) - 9/ COOR0(3>'5> « 9, 
THE FOLLOWING PLOT PARAMETERS ARE INPUT 

0.035/ INT2D - 



XRICH ' 
OVPRNT 



0.035/ 
' . T . / 



YRICH 
% 



40 



38 



1.000 
X- 

^.OOOY 



3.659Y 



3.318 



1.911 



2.636 



2.295Y 



1.955 



1 .61'iY 



1 .273Y 



I. 000' 

X — 
1.000 



1.610 
■ — X — 



K HI m 



2.288 2. 966 3 .6-^^ A. 322 

X X X X 

S 

V W 9 V 
iiifBBiii 
WWWlil8BBi9UW 
i<UWVWWfffBBBBiiWUi< 
;<F('i<WWWW9IB8RRB«9WUi<i< 
AAii(!^i<>iVWW«VB88BBBVfVW/^A 
/\ AAAAi<i<|(|<«iWUf«B88BB8BiiWWi'AA A 
«*A AAAAAi<^i<!iWWf {BBBBBBBBViWW^AAA'^ 
AAAAAA«»^^WWff*B88BSBBBafiWWi'AAA** 
♦ AAA AAA|ii»WVfl8a8 BBBBBB8i»WWi»i« AA** . 

. + ♦*AAAAA?<i«WWf fBSSBBBBBBaillW^^^AA*. . . 
♦ *t**«AAAA)<i«WUffB888B8B8»8fl»»5IWV^*iAA* . . - - 
♦ ♦ ♦♦♦*AAAA|tWWf SBSSSBBBBBBBBSiiyW^^AA* . . - -- 
« * f * * * A A A ftU WViBB 8 68 8BBB8B BBf f 9WWi< >> A A . 
. . '»'»4'«'i<AA«iUWVeBRSBBZRBB8fiBeB9»VWWi<i'AA'» . . - 
. . . ^I'^^AAi^WWffffGSRRBBBBBBBBBBBBfSWW^i'AX^ . - 
. . . .*<^*AAi<WVff988BB8fl8BBBBBBBBBBe9W^i<A*. - - 
AA)iWWViBBBBBBBBBBBBBBBB9B9^^'^'» . -- 
AA(!WW«ffaB8B8 8BBflB8BB9 9fi9WyAA* . ><- 
. A A |i WW99BBB BflBBR8B99VV99WW )< A 4' . - - 
.'^'^AA^WWieBBB8SBBi999999V9Wi<A'». - — 
.'i"«<AA^WWf 9BBBBffVV9999VWWWit^A*. -- 
. AA^WW9VB99fi9V9ff«WWWWW^^ A4' . * — 
.*4<AA^WWf 9«99flf99WVWWWWWVAA* . -- 
. ♦♦AA^WWWliSlWWWWWWUtf ^^AA*. -- 
. **AA f I'UWWVWWWyWWW^^^^AA'^ . - — 
.'^'^ AAAi>|iUWWWWWU^^^i<^^ A'^.-- 
..**AAA^i«WWW?i<|ii<i«»iyi<AA*.-- 
...♦*AAA^^f'^l«^i'(«^AAA*..-- 
-..♦♦♦AAi<i'i«i«^^AAAAA**.-- 
.f+AAA^AAAAAAAA*. - — 
.♦♦*AAAAAAA***. . 

. . AAA****** .-- 
■ .,♦♦*♦♦♦♦<•♦*,, — 



5 .000 
— X 



— — a ■ k 



■ — X-— 
1.610 



— X — 
2.288 



• — X — 
2 .966 



• — X— 
3.6-^^ 



• — X — 
4.322 



■ — X 
5.000 



SCALE FACTORS ■ X-AXIS: E +00 Y-AXISi E+00 Z-AXiSl E+00 
ZO-ZA- 0(-9)> 1 .000 (-9)> 2.000(-9), 3.000(-9), '^.000(-9) 

Z5-Z9- 5.000(-9)> 6.0a0{-9)> 7.000(-9), R.000{-9), 9.000(-9) 

ROGRAM -TEST- READY FDR IMPUT 

/ 

I 

I THE FIFTH RUN IS THE SAME AS THE FOURTH PUN WITH REVERSED VIDEO. 
/ 

.COORD(3>2) - 9> CD0RD(3>'t) - 9> COORD(3#5) - 9> 

/ 

/ THE FOLLOWING PLOT PARAMETERS ARE INPUT -- 
/ 

OVPRNT - .T.> 

XRICH - 0.035/ YRICH - 0.035> INT2D - 
ZMAP - 9> 8> 7>6>5 » 't* 3/ 2> 1> 0 » S 
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39 



1 .000 



1.610 



2 .268 



2.966 



3 . 6 ^ ^ 



A.3?2 



5 .000 



.OOOYBflBftlJBBBBBBfiBBBWBnBflWBfinnBflWHfl BfiBBBBftB»BfiBBBH«8BBBBB8BBRR8B 

I BBBBBRBBBBSBBftAfiB BflfifiSBRBRBB BB BB ^ B BR B BB B BfiBBB R B B BB 1^ IP R !^ B 

I BBBBBBBBBBBBBBBBBBBBBflBBBB BB B BB B S BB B B B BBB B B 8 8 8 S 8 B B B 



lBB8flflBBBBIBfi86BBBBBBflflBB>" 
IflflBBBBBBBBBBBBBBBBBBBB.-- 
6!}9YBaBBBBBBB58Ba6l9 8BBBB....« 

IBBBBBBBBBBBSBBBRBB^^ 

IBBBBBBBBBBBBBBBB****'^.... 
IBBBBfiBBBB8BB8B/vA^^^^^^. .. 
IBBBBBBBBBBBBAAAAA 
,31bYnBBBBBBBBB**»«AAAAAAf****«. 
IBBBS8B8B^ii'*<i'i<AAAAAA** + **. 
I8BB8BBWWWi<i<f'f^/AAAAAA****. 
lBBBB*VWWWVl«f<i<^i|<AAAAAA**** 
iOB9iiWWWWWWi<i<i<i<i<AAAAAA*** 
.9 77YW»SIW8f»UWWWWWi<i<i' i^MAAAAA** 
IBft{8«?iWWWWWWi<|t i^r^AAA^^ ♦ 
I6inBVii9iWWWWWWi<i<i<i<f&'^AAA>«^^ 
I BBBB«ffVV9WWWWWW4ift A AA^ ♦ 
I BB8 8Bi»S»»ywywWi<i^ I'l^i' I'AA** 
. 6 36YBBBBBBi{F«iVWWWWW«/ I'f^^i'AA^* 
I RBB8B8Bi«itewWWWWWi<i< AA^# 
I BBfiBBBBBi79fVVWWWWWWf« i<AA%^ 
ISBffiBBBBBBffiVeVWWy WWfA M AA^^ 
Iflfi8BBBBB6Bii«9fWWWWi<f'AAt^ 

. 29 3YBB8 88BBBBBBCPi9?i?7WWi<v<AA^^ 
IBaB8B6B8BBB8{V99«WWi<i<AAt^ 

I BBB8BBBBBBBBnC9«iWWi< i<AA^«« . 
inBBBBBBRBBBBARWVVWWf«>j«AA««« 



-BBBBBBBBBBBWBBRBB8BBBWB 
■-■-.BaSBBBBfiBBBBSBBBBBBBB 
--*-..BBft8BB8BBBBflBBSfl88B 
— .♦BBBBBBRBBBBBBBBBB 
--■-.♦♦♦BBBBBBBBBBBRBBB 
" A BBBBBBBBBBBBB 

— ... ^♦♦AABBBBBnBBBBB 
. . ^^AAygBBBBBBWR 

« . . .**Ai<i<i<BBBBBBB 

.+*At»»*WWBBSBB 

. . Ai'i'VWWBBB 

nm. . ♦ ♦ Af< i-UUfliB 

mm , . ^ ♦ Al* ^UUSff 

— . . ♦ AAi'UWBffl 
— . ♦Ai'Vi^BBB 

- . AA J^ViBBBB 
-.**A»:yifiBBHB 

■■.♦Ai<UBB8BBBB 

. ♦A^WiiBBBBBB 

• . . ♦ Av'U^BHBBBBBB 

... ^ . ♦ AjiUSiBBBBBBHB 

*A f^UiSBBBBBBBBBB 
. ♦* A^USiBBBBBBBBBBB 

' B^Af'WieBRBBBBBBBBBB 

♦ ♦A*tU»BBBBBBflBfiBBBBB 

. ..♦♦♦Ai'i'yiBBBflBBBBBBBBBBB 



IB88BBB8BBBBBB8B«i»WWi'i<i<AA*** , 

1 .955YflaB8BBB8BlBaBB8B*»yyyi<i'AAA** ♦♦♦♦♦AAi'y»BEB88BRBBBB8BBBfl 

I BBBBB8B8B8BBaB»BB»R«yyi'i'i'AA** ♦Ai'ytSBBBBBBBBBRBflWBBB 
1 BBflBBBBBBBBBaflBBfifiiiWyy I'i'AAA* ♦♦♦♦ + ♦ AAA^f-WiBBBBBBBBBBBBSBBSHB 
IBBB8BBRfiBBBB8BfiBBBiViVyyi<i<i<AA***AAAAAAi(yiBBBBBBBBBBBBB8BBBBB 
I BBBSBSBBBBBBBSBBB ABiifyyy i< i< AA AAAA AA A Ai'yiWBBSBBBRHBBBBBBBBBRB 

l.ol^YBBBBBBBBBBBBBBSnBBBBBiiywWfti'AAAAAAi'i'ywiBBBBBRBBBBBRBBBBBRBgfi 
I BBBBBBBBBBBBBBRBBBBBBBiVy VWi^i' Ai' I'A I'yWBRBBBBBBBBBBBBBfiBBBRB 

I BBBBBBfl8BBB6nBBRBB8BBB7f iVWyfi|«#^f<i'^V9BBBSBBBBBBB8nRBBBBBRBBB 
lBBB8BB8fiBBBBfiBBBBBBBB8fl3ifyyWiti'i'yyWffBBBBBBBBBBB8 8BBBBB8^ 

[ BBBRBBRBBBBRBBB BB BBBBBBBBifyyyyyyWVSBBRBS 8BB8BBRBBBBRBBRBBBB 
1.2 73YflflBB8BBB8B8fiBRBBflBBBBaaBBB9VyyyyyffR6BBS8AaBBBB8B8RBBB8BBRBBR 

I8BB8BBBBBflBBBBBBBBRBBBBnnBfl««yyyCiiBBBBBRBBBBBBBflBnBBBBBBBB6B 
I B8B86BBBBBBBBBBRBf1BflBBRnBBB39?iiBBRBBBBBRBB6BBBRBBBBBBBBBBBB 
IBBBaBBBBRRBKRaaBflflBfiReBRBBBSiSeRBBBBBBBRaBBHBBBBBRBBBBRBBRHB 
LOOOYBBBBBBRBBBBBBBBBBBBBfiflBBBBBBBBiBBBBBBBBBBBRBBBBBBABBBBBBBBflB 

X X X X X X X 

1.000 1.61C 2.238 2.966 3.6^^ ^.3?2 5.000 



SCALE FACTORS - X-AXISi t i^OO Y-AXiSi E*00 Z-AXISi F^OO 
ZO-ZAr 0(-91, 1.00D(-9)^ 2.0C0{-9). 3.000{-9), ^•000(~9) 

Z!>-Z9«. 5.000(-9)> 6.000(-9)^ 7.000(-9 )^ 3. 000 (-9), 9.000{--9) 

'wQGRAM -TEST- READY F0» INPUT 

/ 

/«i«^###ti<i^«««««4f^*^^^#^^t** STOP PPQG^AM 
/ 

FINIS ■ .T.> S 
rOGRAM -TEST- TERMINATED 



i2 
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